home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / cpucheck.zip / CPUCHECK.PAS < prev    next >
Pascal/Delphi Source File  |  1990-04-30  |  721b  |  39 lines

  1. PROGRAM cpucheck;
  2.  
  3. {
  4.   cpucheck.PAS
  5.   Version 1.00, 21 Apr 1990 - Display CPU type returned by ChipType function
  6.                   in Chips unit.
  7.  
  8.   (c)Copyright 1990 Spirit of Performance, Inc.
  9. }
  10.  
  11. USES
  12.    Chips;
  13.  
  14. var
  15.    Chip_Value : integer;
  16.  
  17. BEGIN
  18.    Chip_Value := ChipType;
  19.    if Chip_Value > 480 then
  20.      Write ( 'Processor is 80486' )
  21.    else
  22.    if Chip_Value > 380 then
  23.      Write ( 'Processor is 80386' )
  24.    else
  25.    if Chip_Value > 280 then
  26.      Write ( 'Processor is 80286' )
  27.    else
  28.      Write ( 'Processor is 808x or 8018x' );
  29.    if Chip_Value > 480 then
  30.      Writeln
  31.    else
  32.    if Chip_Value mod 10 <> 0 then
  33.      Writeln ( ' with math coprocessor' )
  34.    else
  35.      Writeln;
  36.  
  37. END.
  38.  
  39.